home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
msh20.zip
/
TOOLKIT.ZIP
/
PRIMITIV.C
< prev
next >
Wrap
C/C++ Source or Header
|
1992-02-17
|
2KB
|
106 lines
#include <stddef.h> /* for NULL */
#include "msh.h"
#include "primitiv.h"
struct{char *name;void (*def)(void);}primitives[]={
{"!",Define},
{"#",Interpret},
{"@",Getval},
{"&",Cat},
{"=",Equal},
{"+",Sum},
{"-",Minus},
{"*",Times},
{"/",Divide},
{"<",Lt},
{">",Gt},
{"le",Le},
{"ge",Ge},
{"alert_att", Alert_att},
{"beep",beep},
{"capture_screen",capture_screen},
{"cmd",Cmdline},
{"cmd.imode",Cmdline_imode},
{"cmd.clear",field_clear},
{"cmd.del",field_delete},
{"cmd.end",field_end},
{"cmd.home",field_home},
{"cmd.left",field_left},
{"cmd.right",field_right},
{"cmd.wordleft",field_wordleft},
{"cmd.wordright",field_wordright},
{"current.name",Current},
{"current.isdir",Current_isdir},
{"current.pos",Current_pos},
{"current.selected",Current_selected},
{"current.size",Current_size},
{"current.time",Current_time},
{"cutfirst",CutFirst},
{"cutlast",CutLast},
{"cwd",Cwd},
{"debug",Debug},
{"drop",Drop},
{"dup",Dup},
{"execute",Execute},
{"flash",Flash},
{"get_key",GetChar},
{"if",If},
{"ifelse",Ifelse},
{"ifnot",Ifnot},
{"input",input},
{"isdefined",IsDefined},
{"length",Length},
{"linescols",linescols},
{"magic",Magic},
{"match",Match},
{"menu.install",install_menu},
#ifdef DEBUGM
{"mem",Mem},
#endif
{"message",Message},
{"not",Not},
{"ok",Ok},
#ifndef NO_BROWSER
{"page",Page},
#endif
{"pick",Pick},
{"panel.attrs", Pn_attrs},
{"panel.att", Pn_att},
{"panel.date", Pn_date},
{"panel.install",install_panel},
{"panel.nbfiles", Pn_nbfiles},
{"panel.on", Pn_on},
{"panel.pattern", Pn_pattern},
{"panel.rc",Pn_rc},
{"panel.sec", Pn_sec},
{"panel.size", Pn_size},
{"panel.sort",Pn_sort},
{"panel.startrc",Pn_startrc},
{"panel.time", Pn_time},
{"panel.type", Pn_type},
{"prog_pathname",Progname},
{"quit",Quit},
{"read",Read},
{"reinit_mouse",(void(*)(void))mouse_init},
{"mouse.click",mouse_click},
{"roll",Roll},
{"stack_size",Stacksize},
{"swap",Swap},
{"substring",Substring},
{"time",Time},
{"timer",Timer},
{"unlink",Unlink},
{"window.uninstall",uninstall_window},
{"window.activate",Window_activate},
{"while",While},
{"write",Write},
{NULL,NULL} /* to mark the end of the list */
};
struct {char *type;void (*lister)(char *pattern);}panel_listers[]=
{
#ifndef NO_ZIP
{".zip",zip_ls},
#endif
{"",do_ls}, /* normal panel; this item MUST be last */
{NULL,NULL}};